home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / taf1.sha < prev    next >
Encoding:
Text File  |  1994-03-01  |  1.3 KB  |  57 lines
  1. 5 CLEAR
  2. 10 INPUT "Nb de machines : ";MC
  3. 20 INPUT "Nb de taches : ";N
  4. 30 DIM T(N,MC),M(N,MC),D(N,MC)
  5. 40 DIM T2(N,2),L(2)
  6. 100 FOR I=1 TO N
  7. 105 REM  WAIT 0
  8. 110 FOR J=1 TO MC
  9. 120 PRINT "Duree T ";I;" sur Mach  "; CHR$(64+J);
  10. 130 INPUT T(I,J)
  11. 140 PRINT "Duree M ";I;" sur Mach  "; CHR$(64+J);
  12. 150 INPUT M(I,J)
  13. 160 PRINT "Duree D ";I;" sur Mach  "; CHR$(64+J);
  14. 170 INPUT D(I,J)
  15. 180 NEXT J
  16. 190 NEXT I
  17. 300 FOR K=1 TO MC-1
  18. 305 DEB$="":FIN$=""
  19. 310 FOR I=1 TO N
  20. 315 TEMPS=0
  21. 320 FOR J=1 TO K
  22. 330 TEMPS=TEMPS+T(I,J)
  23. 340 NEXT J
  24. 350 TEMPS=TEMPS+M(I,1)-M(I,MC-K+1)
  25. 360 T2(I,1)=TEMPS
  26. 370 TEMPS=0
  27. 380 FOR J=(MC-K+1) TO MC
  28. 390 TEMPS=TEMPS+T(I,J)
  29. 400 NEXT J
  30. 410 TEMPS=TEMPS+D(I,MC)-D(I,K)
  31. 420 T2(I,2)=TEMPS
  32. 430 NEXT I
  33. 460 FOR I=1 TO N
  34. 470  PRINT "K=";K;"   Tache ";I;T2(I,1);T2(I,2)
  35. 480 NEXT I
  36. 500 FOR J=1 TO N
  37. 510 M1=T2(1,1):L(1)=1
  38. 520 FOR I=2 TO N
  39. 530 IF T2(I,1)<M1 THEN M1=T2(I,1):L(1)=I
  40. 540 NEXT I
  41. 550 M2=T2(1,2):L(2)=1
  42. 560 FOR I=2 TO N
  43. 570 IF T2(I,2)<M2 THEN M2=T2(I,2):L(2)=I
  44. 580 NEXT I
  45. 590 MN=M1
  46. 600 MARQ=1
  47. 610 IF M2<MN THEN MN=M2:MARQ=2
  48. 620 T2(L(MARQ),1)=99E90
  49. 630 T2(L(MARQ),2)=99E90
  50. 640 IF MARQ=1 THEN LET DEB$=DEB$+STR$(L(MARQ))+","
  51. 650 IF MARQ=2 THEN LET FIN$=STR$(L(MARQ))+","+FIN$
  52. 660 NEXT J
  53. 670 OD$=DEB$+FIN$
  54. 680 PRINT "K=";K;"  ";:PRINT OD$
  55. 690 NEXT K
  56. 700 END
  57.